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- SATS SYSTEM SERVICE TESTS 
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SATSSFO1 
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~ TITLE sATpste} - SATS SYSTEM SERVICE TESTS (FAILING S.C.) 
-IDENT ‘V04-000' 


—MARARAAAAAAAARLALAALALLALALAAE SSSA SALES LALA ALAS ASA A REESE SEER ARES EES ELAR EES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


FTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ACCORDANCE WITH TH OF SUCH LICENSE AND WITH TH 
N OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


* 
te * 
® * 
® ® 
® . * 
® * 
® * 
* * 
® * 
x I * 
* RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. * 
sf x 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. * 
* * 
t * 
# * 
* * 
* * 
® = 


DIGITAL ASSUMES NO RESPONS . 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


; L 
: § NOT SUPPLIED BY DIGITAL. 


IARRRAAAAAASALARAASLASALASLALAAALESEALASELELASEASASASA REAR RSA SARL S ARS A RSLS SD | 


++ 
; FACILITY: SATS SYSTEM SERVICE TESTS 
; ABSTRACT: The SATSSFO1 module tests the execution of the following 
VMS system services, invoked in such a way as to expect failing 

; status codes: 

SDACEFC 

SDLCEFC 

SCEFC 
SSETEXV 


; ENVIRONMENT: User mode image; needs CMKRNL privilege, 
dynamically acquires other privileges, as needed. 


COOSOSCSCSCSOSOOSOOSOSSSOOSSSSOSOSOSOSOSOSOSOSSOSSOOOSOSOOOOSOOSOOSOSoOO 


SOOSCOCOCSCSOSOOSOOOOOOCOSOOSOOSOOOSOOSCSOSOOOCOSSOSOOOOSOOOOOOOOOOOOOOSO 


SOOCOOCOOCOOCO OOOO OOSOSSSSSSOSCSSCSCSCSOOSOSOOCSOOOOCOCO OOOO OOOOSoOOoOO 


; PAUL D. FAY (DISPSERV & TESTSERV MACROS) 


MO ODNAUE WIN 0 OONOAUE WN 0 OO NIA E WN 0 OO NAMES WN OOONOU SW 


DN EEE REESE ES EWI onononononononononys 2 


SOOOCOCSCOOCOSOOOOCOOSOOOSOOOOOOSOSOOSOOOOOCOOCOSOOOOOOOO 


AUTHOR: THOMAS L. CAFARELLA CREATION DATE: AUG, 1978 
0 
MODIFIED BY: 
0 v03-001 L0J0001 Larry D. Jones 17-Sep-1980 
om Modified to conform to new build command procedures. 
0 — 


sls 


SOGOCOCOOCOOOOOCOOSOOOSoOoOSoSo 


COOoCOooCoooooooooooooooo -M 


CGOOOCCOCOCOOCSOOCCOCOCOOCOOCOOoCOoO -~< 
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SEP=1986 Oe: 


FO1.MAR;1 


¢ ~SBTTL DECLARATIONS 

: ; MACRO LIBRARY CALLS 

8 ; SPRVDEF : privilege definitions 

SUE TPDEF ; UETP message definitions 

60 SSHR_MESSAGES UETP,116,<<TEXT, INFO>> ; UETPS_TEXT definition 
61 SPHOBEF 3 process header definitions 
$¢ SPCBDEF ; PCB definitions 
6 SSSDEF ; SS definitions 
rt: SSTSDEF 3; STS definitions 
¢ : Equated symbols 
68 WARNING = 0 ; warning severity value for msgs 
$? SUCCESS =] 3; success . t : 
0 ERROR 2 ¢ 3; error » “7 = 
71 I = : information "' - = 

Le SEVERE = 4 : se ef oe 

oe PRVHND_SXV40 = 1 : page 0 address for SETEXV 


sig 


0000 
31 30 46 53 53 54 41 53 8" 
46 53 53 54 41 53 rrenmcssittoin a” 

re 

6E 75 67 65 62 89" 1 

Se 

6C 75 66 73 73 65 63 63 75 73 60" 1 

64 65 6C 69 61 66 00° 

06 

43 46 45 43 41 44 00° 

06 

43 46 45 43 4C 44 00° 

06 

43 46 45 43 53 41 00° 

06 

56 58 45 54 45 53 90° 

06 


0 

00000000'*00000000' 00 

00000000' 

43 4C 44 46 53 00000061°010E0000° 00 
0000006E *610E0000" 0066 

4F 


52 4D 000 oor" 010E000 33 

41 48 43 20 35 23 $8 25 3h 41 cB 0 f 

00000000 O80 

00000001 a 

00000000 $3 

21 20 74 73 65 54 A1°O10E 99" 99 

UE ER EEET ERS 

2E 64 65 6C 69 61 66 C 0 4 
74 63 65 70 78 45 3°010E00 C 

GH Bg gemar aaa Fat 


M SERVICE TESTS 


ASCEFC: 
4 


SETEXV: 
6 


TEST_MOD_NAME : 

TASCIC 
TEST MOD. -NAM 
ASCI6 


TEST_MOD 4 


E 
I 
I 
I 
C: 
I 
TEST_MOD_FAIL : 


"Yr OC WM a 


8 
A 
TEST_MOD_S 
A 
F 
<A 


ove 


DACEFC: 


DLCEFC: 


VECTOR et . 
ACMODE rl 
PRVHND_ sivel: 

- LONG 
cs! 

-ASCID 


CS2: 
-ASCID 


M15 
(FAILING S. 1 


OWN STORAG 


/SATSSFO1/ ; 
* /SATSSFO1/ 
/begun/ 
/successful/ 
/failed/ 
/DACEFC/ 
/DLCEFC/ 
/ASCEFC/ 
/SETEXV/ 


NOACCESS ,NOACCESS : 
PRTSC_NA : 
/SFDLC/ ; 
/ : 
/MORE THAN 15 CHARACTERS/ 


a 


1 : 


~$EP=1986 06:27:16 


E 
RODATA,RD ,NOWRT ,NOEXE ,LONG 


AX/VMS Macro V04- 
UETPSY.SRCISATSSF , MAR; 1 (1) vC 


needed for SATSMS message 


; module name 


page address of noaccess psect 
protection code for no access psect 
legal name string 

zero length string 

: illegal string length test string 


; vector parameter for SETEXV 


access mode param. for SETEXV 


; readonly access for SETEXV 


\Test !'AC service name !AC step !UL failed.\ 


\Expected !AS = 


'XL received !AS = 


tXL\ 


SATSSF 
v04 


11 
73 75 74 61 74 73 00000133'010E0000° a3 8 12 


i 


4 


8 % 


= SAT 


SYSTEM SERVICE 


OWN STORAGE 


4C 58 21 20 3D 20 53 


Ta 


8 02 $3 2 


a 


‘i. f CSos 
iy 


9 EXP: 
0 


N15 
TESTS (FAILING S. _* 
=SEP=1 


SEP=1 


Bc Oeidrite 


AX/VMS 


Macr 
UETPSY.SRCJ 


04 


«ASCID \Expected !AS'UB = !XL received !AS'!UB = !XL\ 


-ASCID \status\ 


09 .MAR:1 


ov 
SATSSF 


Page 


4 
(1) 


—ITOWNVOWZ BK KOCH TOM IOOOZ Sl KOK ITO MMIOOZ EF KCK LOM COMZ Er ACH TOA MMIOW 


SATSSFO1 = SATS SYST 
vOus800 OWN STORAGE 
13 
0000 
00000000 ? 
00000000 4 
00000044 § 
00748009 44 
beg 
00000000' gee 
00000019" 004 
036 
00 Bay 
06000000 00000000 4 
00000009 0059 
Beep 
00000065 005D 
Beek 
065 
006D 
006D 
Bee 
07 
089 
i 
74 73 69 67 65 72 O0D00083 "91059009" 09D 
52 20 72 6 A 
00000000 Oat 
00000050 083 
00000088 ' 
088 
00000108 ? ; 
000000 01 
Sonnag. 
00000000 113 


EM SERVICE TESTS (FAILING S. "yr3eF S 80:30: 


PID: 
CURRENT_TC: 
.LONG 0 
-ALIGN LONG 
REG_SAVE_AREA: i 


TBLKL 
MOD_MSG_CODE: 
.LONG UETP$_SATSMS 


ADDRESS TEST_MOD_NAME 
ADDRESS TEST_MOD_BEGIN 


0 


— = 
s 2 


vw 

»~ 

< 

vw 

za > 

~ oF °G 
o° Vg 
za wD 


a 
v 
z@ 
home 
<= 
= 
> 
wn 
~~ 


~BLKL 
SDACEFC 
SDLCEFC 
SASCEFC 
SSETEXV 
«ASCID 


0 
0 
0 
2 
0 


NAME _DLCO 
0,0,0,1 
\register R\ 
-LONG 0 
«ADDRESS BUF 
BLKB 80 


@ 
i= 
al 


MESSAGEL: 
LONG 0 
ADDRESS 
LONG 0 


BUF 


Oe ns a ed nd ed dd od od 


POAAAOAOAAOOUIM NMUUUUMULe Rene 


BWNAWVEWNOOCON PUL WN "OOO NOAUES WN OOONIAUES WN OWONOUS WN 


SERV_NAME 


9 
9 


»WRT ,NOEXE ,LONG 


5 


10 VAX/VMS 
(1) 


16 CUETPSY. 


acr 


Macro v04 
SRCIJSAT 


- Page 
JSA 9701 MAR; 1 : 


PID for this process 
ptr to current test case 


register save area 
test module message code for putmsg 


protection return byte for SETPRT 
priv. mask 
change mode continue address 
returned address's from SETPRT 
DACEFC parameter List 

; DLCEFC parameter List 
ASCEFC parameter List 


VECTOR_SXV,0,ACMODE_SXV,PRVHND_SXV40 ; SETEXV parameter List 


register number 
buffer desc. 


3; message desc. 


; service name pointer 


C 16 
SATSSFO1 = SATS SYSTEM SERVICE TESTS (FAILING S$. 16-SEP-1984 00:30:10 VAX/VMS Macro v04-00 Pa 
Sod S808 R/W PSE mie 90:39:18 UETPSY.SRCISATSSFO1.MAR;1 = (3) 
00 »PSECT oP ACCVIO_1,RD,WRT,NOEXE,PAGE 
00000299 EMPTY: 4 3 i reserve a page of space 


+ 
ARR ASARARALAALALARAAL ALES ESE SESE ASSES ES ERE SET ESET Cece eee eee as | 


® 
* THE ORDER yd pA Nh i THIS PSECT IS CRITICAL. * 
® DO NOT REARRANGE THE VARIABLES. CONSULT SATS * 
: FUNCTIONAL SPECIFICATION FOR A DESCRIPTION - THE U + - 
® > 
® * 


DOOOCOOCOCSSo Om 


OOODDNWWOOOOCCOOCOOOCOOOO -~< 


POROMOPONIPOPONPOPONOPOFIFIFIOO 


17 
if} § 
178 § 
174 
if 
199 
128 
00 (186 
8 ! Ht PARR RAASAAASLASALEAAALASLSLASEELESESESE CEES EEE TERETE ECS E CECE a 
0 1 
000001FF 0 184 BRVHND_Sxv42 s,=f ; prvhnd arg for SETEXV (Last byte in the page) 
000001F3 0 185 ee ele * ; allow room for string descriptor 
F 136 ; type AAAAA_SSSX5 of here: 
00000006 O1F 3 “2 : 6 ; string length (will cross psect boundary) 
O000001FB" OIF 1 & DRESS .+4 ; string address 
ae 189 ; type AAAAA -S8si3" o here: : 
QOOOOO1FC OTF 190 BLKB 1 ; low-order byte of string length 
gir 191 ; type AAAAA 88812 gfe here 
00000200 Oj1F 136 ; string Length 
020 192 3 
0200 194 ; 
0300 196 ; 
00000000 197 -PSECT ep. g Cuts _2,RD,WRT ,NOEXE , PAGE 
00000200 0000 198 NOACCESS: ais ; reserve a page of space 
00000000 0200 199 - 51 3; return loc ctr to beginning of psect 
00000000' 0000 200 "ADDRESS EMPTY ; address of accessible strin 
00000000" Obs so) a “ADDRESS EMPTY/*K100 ; address of accessible string 
00 08 ; wee NOTE -- DO NOT CHANGE LOCATION ee SEQUENCE OF ABOVE ALL oy ik 
000 04 5 eee THIS PSECT (NOACCESS) MUST APPEAR IN MEMORY IMMEDIATELY 
000 295 : eee FOLLOWING THE EMPTY PSEtT. PSECT NAMES AND OPTIONS WILL BE 
43 a 5 wee CHOSEN TO FORCE THE DESIRED PSECT ORDERING. 
0008 8 ; 
$8 09 : 
0008 10 : 
0008 +211: 


ssi 


SEP-1984 Oui2zile LUETPSY.SRCIGATSSFO% «MAR: 1 
~PSECT SATSSFO1,RD,WRT,EXE,LONG 
- ~SBTTL SATSSFO1 
FUNCTIONAL DESCRIPTION: 
After performing qene initial housekeeping, such as 


printing the module begin message and ccquir og needed privileges, 
the system services are tested in each of their failure conditions. 
i 


D 16 


STEM SERVICE TESTS (FAILING S. 1" : 
Dd 


Detected failures are identified and an error message is printed 
on the terminal. Upon completion of the test a success or fail 
message is printed on the terminal. 
CALLING SEQUENCE: 
$ RUN SATSSFO1 ... (DCL COMMAND) 
INPUT PARAMETERS: 
none 
IMPLICIT INPUTS: 
none 
OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 


Messages to SYSSOUTPUT are the only output from SATSSFO1. 
They are of the form: 


ZUETP=S=-SATSMS, TES 

RUETP=S=SATSMS, TES 

ZUETPE-SATSMS, TES 

RUETP-I-TEXT, ... ( 
COMPLETION CODES: 


The SATSSFO1 routine terminates with a SEXIT to the 
operating system with a status code defined by UETPS_SATSMS. 


SIDE EFFECTS: 
none 


T 
T 
; MODULE SATSSFO1 FAILED ... (E 


Se Se Se Ge Se Se Ge Ge Se Be Se Se Ge Ge Se Se Be Ge Ge Se Ge Ge Se Ge Ge Ge Ge Se Se Se Se Ge Se Be Se Be Se Gs Se Ss Se Ge Se Sete te 


FAN OOOO NA UE WIN OOO NAMES WN O OO NAMES WN OO OONAUE WR OVUONOULW 


PDR DP DP Ps SS BE BE NANI WII POPPY SS SS 


TEST_START SATSSFO1 ; let the test begin 


Page 


> | 


(1) 


ssh 


0113'CF 


0000" 
00000000' GF % 
00000000°GF 6 
0040" CF 


O1F 
03 80 
O4DC'CF 


0031'CF 


OO0000EC 4 
04E6'CF 


QOOOOOEC 8F 


O4E6'CF 01 
0004'CF 01 
O4DC'CF 1 
0069'° CF F 

OQOOOOOEC 8F 
04E6'CF 1 

OOOOOOEC 8F 


04E6'CF 1 


SATSS 5 
0000 Q ENTRY SATSS# 01.0 
D4 CLRL © WACURRENT_TC 
DD 6 PUSHL #0 
DF PUSHAL W*TPID 
FB ‘ CALLS #2,G°SYSSWAKE 
F3 001 CALLS #0,G*SYSSHIBER 
7F 1A PUSHAQ W*fEST MoD NAME _D 
tB 1 CALLS #1,G°S7S SETPRN 
3 BSBW  wW*MOD_MSG 
DE 028 MOVAL wTEST aco Suet Y 
F 0 F INSV. #SUCCESS,#0 
DD 6 PUSHL # 
FB 90 : oa CALLS #1,W*REG_SAVE 
903D 65 SSETPRT_S INADR=W* INADR RETADR=W* 
9030 66 PROT=W*PROT, PRVPRT=W*PR 
.SBTTL , 
0056 268 .SBTTL DACEFS TESTS 
bose 590 5 
Bead 71 ; SDACEFC tests 
; es or an 0 
0056 272: test f EFN of 0 
ae 
DE 0056 275 MOVAL  W*DACEFC,W*SERV_NAME —; 
905D 76 SDACEFC_G W 
066 277 FAIL ~CHECK” $S$_ ILLERC ; 
DD 0066 SHL ~ #SS$_ILLEFC 
FB 006C ~ EARLS #1, W®REG_CHECK 
071 378 SDACEF ; 
O7A 279 FAIL =CHECK” ss$_ ILLEFC 
ee Et HSDeHEEE bec 
O08) 280 3+ 
; test for a non-zero but Less than EFN 
085 ‘ but | 64 
bes | (SBa 
a88 85 NEXT_TEST 
08) STP1: 
v0 3 Post #1,W°CURRENT_TC 
FB ope CALLS W*REG_SAVE 
DO 0091 28 Ov. = #6 U*DAC#BACEFCS “EFN ; 
96 8 SDACEFC G WADA 
OF 8 FAIL = CHECK $S$_ ILE C F 
DD 009F PUSHL #SS$ ILL LEFC 
FB OOAS CAL #1 ,W®REG_CHECK 
AA 389 SDACEFC_S # : 
; 0 FAIL CHECK S$5$_ ILLEEC ; 
DD PUSHL asss LLEFC 
FB CALLS UPRE G_ CHECK 


9 
E 
E 
E 


g 
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91 ;+ 
38 : test for a non-zero but greater than 127 


W*TMD_ ADDR 


W*MOD_ASG_CODE 


RETADR, 
VPRT 3 set noaccess psect 
3 «+. for no user access 


set service name 
check for correct failure 


check _S for 


3; check for correct failure 


set EFN 
check for correct failure 


check the _S form 
check for Correct failure 


Se 


SATSSFO1 ~ SATS SYSTEM SERVICE TESTS (FAILING S. 16-SEP-1984 00:30:10 VAX/VMS Macro vO Pa 
50402800 DACEFC TESTS ets 90:39:18 HeTP SY. SRed Aiees i MAR; 1 ” ( 
BE 94 ; 
BE 95 ;- 
oF 96 NEXT_TEST 
BE STP2: 
0004 'CF ‘ dO B MOVL 46" »W* CURRENT _TC 
DD QO0C ste 
O4DC'CF 1 FB OOC a W*REG_SAVE 
0069'CF 00000080 8F DO OOCA 97 MOVL #1 SusDACSDACEFES. EFN ; set EFN 
0003 98 SDACEFC_G 
ODC 99 FAIL. CHECK seat ILLEFC 3 check for correct failure 
OOOOOOEC BF DD 33 PUSHL #SS$_ILLEFC 
O4E6'CF 1 FB OOE CALLS #1 ,W®REG_CHECK 
Q0E7 $09 ge C 128 3 check _S form 
OOF4 01 FAIL. CHECK” s$$_ ILLEEC 3 check for correct failure 
OO00000EC 4 DD OOF4 #SS$_ILLEFC 
O4E6'CF FB OOFA ati: #1 ,W*REG_CHECK 


9 
1) 


OWONAUIS Ww 


NDA HL UHHH me 


DWOOVOOOVOVO LS MMWM WO OW MAAMOHAOOOON--O-WDW 
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«SBTTL DLCEFC TESTS 


SDLCEFC tests 
test for a zero length cluster name 


Be Se te te tees 
+ 


NEXT_TEST 


STP3: 

MOVL #3,W*CURRENT_TC 

PUSHL 

CALLS #1 W*REG SAVE 

UDLCEFC. W*SERV_RAME 3 set service name 


MOVAL 
SOLCEFC_G fo wen 
FAIL_CHECK SS$_IVLOGNAM ; check for correct failure 
PUSHL #SS$_IVLOGNAM 
CALLS #1,W*REG_CHECK 
SDLCEFC_S W*NAME DLCO 3 check the _S form 
FAIL_CHECK SS$_IVLOGNAM ; check for Correct failure 


PUSHL ~ #5S$_IVLOGNAM 
CALLS #1,W*REG_CHECK 


: test for a non-zero but greater than 15 Length cluster name 


NEXT_TEST 
STP4: 
MOVL #4 ,W*°CURRENT_TC 
PUSHL #0" 
CALLS #1,W*RE 
coves WA NARE picts, WOCe ope CEFCS _NAME ; set name address parameter 
FAIL. CHECK - IVLOGNAM 3; check for correct failure 
#SS$_IVLOGNAM 
att: #1 UFREG. CHECK 
SDLCEFC_S W*NAME DiCI> | : check the _S form 
FAIL_CHECK SS$_IVLOGNAM ; check for Correct failure 
PUSHL #SS$_IVLOGNAM 


CALLS #1,W*REG_CKECK 


+ 


a test for the tage gg of PRMCEB privilege is not needed 
because a process, with the same UIC as the owner UIC of a 


created common EFC, can delete it without having the PRMCEB 
privilege. 


SATSSFO1 
v04-000 


0004°CF 05 

0 

O4DC'CF 1 
O113'CF OO3F'CF 
QOOOODEC 8F 
O4E6'CF 01 
QOOOOOEC 8F 
O4E6'CF 01 
0004'CF 06 

00 

O4DC'CF 4 
0079'CF F 
QOOOOOEC 8F 
O4E6'CF 01 
QOOOOOEC 8F 
O4E6'CF 01 

0004 ‘CF 4 
040C'CF a 
0079°CF 00000080 8F 


QOOOODEC 8F 


ow 
m> 
nn 


COOOOCOOOOOCOOCOOCOCOCOCOCOOSO COCO OCOCOCOCOSOOOO COCO OOCOOOCOOOOCOOOOOOOCOO MUM 
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> 
w 


OOS DT anlar dh dddidtdididladalos aw 
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: 
‘4 
‘8 


36 
6 
68 


~SBTTL ASCEFC TESTS 


S 
3+ 


STPS: 


: test for non-zero but less than 64 EFN 


SASCEFC tests 
3 test for zero EFN 


NEXT_TEST 

MOVL #5 ,W°CURRENT_TC 

PUSHL 

CALLS #1 ,W*REG SAVE 
MOVAL W*ASCEFC,W*SERV_RNAME 
SASCEFC_G W*ASC 
FAIL_CHECK SS$_ILLEFC 

PUSHL ~ #SS$_ILLE 

caus #1 ,W*REG_ 
SASCEFC_S #0,W°NAME DLC 
FAIL_CHECK $S$_ILLEFC 

PUSHL ~ #SS$_ILLEFC 


CALLS 


NEXT_TEST 


MOVL 
PUSHL 


#1,W*REG_CHECK 


#6 ,W°CURRENT_TC 


gto #1,W*REG_ SAVE 
,W*ASC+ASCEFCS_EFN 


MOVL 

SASCEFC_G W*ASC 

FAIL_CHECK SS$_ILLEFC 
PUSHL ~ #SS$_ILLE 
CALLS #1 ,W*REG_ 

SASCEFC_S #63,W°NAME_DLC 

FAIL_CHECK SS$_ILLEFC 
PUSHL ~ #SS$_ILLE 
CALLS #1,W*REG 


FC 
CHECK 


FC 
CHECK 


FC 
CHECK 


30:10 mae Macro ees 
27:16 CUETPSY.SRCJSATSSFO1.MAR;1 


3; set service name 
check for correct failure 


check _S form 
check for correct failure 


3; set the EFN to 63 
; check for correct failure 


check _S form 
; check for correct failure 


: test for a non-zero but greater than 127 EFN 


NEXT_TEST 
MOVL 
MOVL 
SASCEF 
FAIL 


PUSHL 


#7 ,W*CURRENT_TC 


#SS$_ILLEFC 


us 

CALLS #1 ,W°REG SAVE 

; #128 W*ASC+ASCEFCS_EFN ; set the EFN to 128 
CHECK SS$_ILLEFC 


; check for the correct failure 


~~ 
ns 


SATSSFO1 = SATS SYSTEM SERVICE TESTS (FAILING S. 16-SEP-19 71 AX/VMS Macro V04- P 1 
$04.00 ASCEFC TESTS BrSeei18be Gasarilo FOETbee aes eayceros mars1 Fae 12, 
O4E6'CF 01 FB 0221 CAL #1,W*REG_CHECK 
6 358 SASCEFC_S F138, weNAME BCC ; check 1S for 
(238 0 FAIL_CHECK SS$_ILLEFC ; check for correct failure 
QOOOOOEC BF DD (238 PUSHL ~ #SS$_ILLEFC 
O4E6'CF 01 FB a4 m1 + CALLS #1,W*REG_CHECK 
46 372: 
: rh 74 ; test for a legal FFN but not addressable name string 
48 75 :- 
0 7 76 NEXT_TEST 
p te STP8: 
0004 'CF 8 . 8 re Push #8 ,W*CURRENT_TC 
O4DC'CF gt FB 024D LLS #1,W*REG_SA 4 
0079'CF 00000040 8F DO 0252 77 san ig W°ASC+ASCEFCS_E i le alize the EFN 
OO7D'CF OOOO'CF ODE 8 28 oe ao bee tt “NOAC ACCESS, UoASCAASCER CS. NAME ; set illegal address for name 
0268 80 FAIL. CHECK a ~ACCv10 3: check for correct failure 
la DD 0268 cece #Ss$ apgcv io 
04E6'CF 01 FB bg98 CALL #1,W FREG_ CHECK 
0272 381 rite to te w* NOACCE SS” : check _S form 
bses 382 FAIL_ CHEEK” S$ ACCVIO 3 check for correct failure 
0c Db 0287 bush L #SS$_ACCVIO 
04E6'CF 01 FB OSee as is CALLS #1 »W*REG_ CHECK 
028E 384 : 
028E 85 ; test for 0 Length cluster name 
028E #09 ; 
028E 87 ;- 
th43 388 NEXT_TEST 
O28E STP9: 
0004 'CF + 8 O508 pot ta ae oW*CURRENT_TC 
O4DC'CF 01 FB 0295 CALLS #1,W*RE AVE 
007D'CF 0066'CF DE OSz4 $63 rte - ean WAST SASCEFCS NAME ; set 0 Length name 
O2AA 91 FAIL =CHECK SS$_IVL z; check for correct failure 
00000154 SF DD BSan PUSHL Ha eit IVLO 
04E6'CF 01 FB B9 CAL § #1 OFREG CHECK 
02B 3 SASCEFC_S #64,W°NAM mE DLCO : check _S for 
CA 9 FAIL NCHECK’S s$_ IVLOGRAM 3 check for aerrent failure 
00000154 8F DD CA push #SS$_IVLOGNAM 
04E6'CF 01 FB 9 0 ee CALLS #1 »W*REG_ CHECK 
p> 395: 
if +H 3 test for greater than 15 Length cluster name 
2 98 :- 
DB? 9 NEXT_TEST 
R STP10 
0004 'CF pA + + et #10,W*CURRENT_TC 
04DC'CF 1 FB DC CALLS #1,W*REG_SAVE 
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Ow 
++ 
wm 


-SEP-19 
MOVAL W“NAME DLC15,W*ASC+ASCEFCS_NAME ; set 15 Length name 
SASCEFC_G W*A fe 
FAIL CHECK SS$_ L0g AM ; check for correct failure 
PUSHL -) S$_IVLOGNAM 

CAL S$ # REG ‘ee 
SASCEFC_S #64,W*NAME_DLCT ; check $ for 
FAIL_CHECK SS$_IVLOGNAM 3; check for correct failure 


“ PUSHL Ha] IVLOGNAM 
CALLS #1 ,W*REG_CHECK 


; test for need to have PRMCEB privilege 


Poy oP oP ot oP tt ot ot 
POS HS ss Ss 
SCWOONOULWR— 


m 
aS 
DOSCOSCOOSCDOCOMODODDOODDODOSDODOODSOODOODOODOOQOOOSOO ow 


NEXT_TEST 


oer #11,W*CURRENT_TC 


LLS #1,W*REG_ SAVE 
MODE TO 1s ane NOREGS ; kernal mode to access PHD 


MOVL aactL Rd ae process header address 
MOVAL PHDSG SERTVRSKERS) . WPRIVAA : oot priv mask address 
MODE FROM, TOS back to user mode 
PRIV —REM, meRM RMCEB : Pemove PRMCEB priv. 
MOVAL W*NAME OLC, pantenncyree uh ME ; set a legal name 
PUSHL e ; push a dummy parameter 
‘ AN ee gene SAVE ; save the registers 
FAIL_ CWEEK a _NOPRIV 3; check for correct failure 
PUSHL #SS$_NOPRIV 
CAL ts #1,W*REG_CHECK 
SASCEFC_S a NAME DLC, ,#1 3 check _S form 
FAIL_ CHECKS NOPRIV 3 check for serves failure 


MODE T0,20$ KRNL .NOREGS : kernal mode to access PHD 
$GL_PHD,R ge et process header address 

MOVAL PHD$Q PRIVMSK (RO) »W*PRIVMA K ; get priv mask address 

MODE ; get back to user mode 

PRIV ADD ,PRMCEB 3 return PRMCEB priv. 


K 16 
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v04=000 SETEXV TESTS orSeen obs Oasatiio ORT bee eaecAvocros.mar:1 729 44, 
F 429 .SBTTL SETEXV TESTS 
F 450 ;+ 
F 431; 
F 4 § 3; SSETEXV TESTS 
F 435 ; test for page 0 access 
F 434 ; 
F 435 ;- 
‘ 436 NEXT_TEST 
8 F STP12 
0004'CF 0c dO F MOVL #12,W*CURRENT_TC 
89 DD 8 FD PUSHL 
O4DC'CF 1 FB FF CALLS #1 W*REG SAVE 
O113°CF  O046'CF ODE ots rH rth a L | SEIEW. »W*SERV oRAME 3 set service name 
0414 439 FAIL. OMNECK SS$_ACCVIO 3 check for correct failure 
0c DD 0414 PUSHL #SS$_ACCVIO 
O4E6'CF 01 FB 0416 CAL ts #1 WeREG CHECK 
041B 440 SSETEXV_S my SU, ac 
041B 441 “ACMODE “exy. W*PRVHND_ SXV40 ; check _S form 
0430 442 FAIL -cHECK’ SS$_ACCVIO 3 check for correct failure 
0c DD ot PUSHL #SS$_ACCVIO 
O4E6'CF 01 FB 0432 CALLS #1 »W*REG_ CHECK 
0437 443 3+ 
0437 444 : 
0437 445 ; test for read-only psect access 
0437 446 : 
0437 447 :- 
0437 448 NEXT_TEST 
0437 
0437 STP13 
0004 'CF 0D 00 0437 MOVL #13,W*CURRENT_TC 
00 DD 043C¢ PUSHL #0 
O04DC'CF 01 FB oF CALLS #1,W*REG_ SAVE 
0099°CF 0095'CF DE 044 449 MOVAL W*PRVHND_ SkV41, USE TSSETEXVS. PRVHND 
044A 450 SSETEXV_G W*SET 
0453 451 FAIL =CHECK SSt_A ACCVIO : check for correct failure 
oc DD 0453 #SSS_A ccvIO 
04E6'CF 01 FB 0455 CAL st #1, re REG. CHECK 
Beea $38 SSETEXV_S USVECTOR 2 
45A 45 “ACMODE— sty W*PRVHND _ SXV41 3; check _S form 
O46F 6 454 FAIL “CHECK” SS$_ACCVIO 3; check for correct failure 
0c DD peer PUSHL #SS$_ACCVIO 
04E6'CF 01 FB 8 1 CALLS #1 »W*™REG_ CHECK 
4/76 455 3+ 
476 456; : 
476 457 ; test for noaccess psect protection 
476 $28 3 
476 459 se 
476 460 NEXT_TEST 
476 
476 STP14: 
0004 ‘CF DO 0476 MOVL #14,W*CURRENT_TC 
DD 0478 PUSHL 
O4DC CF 01 FB 047D CALLS #1,W*REG SAVE 
0099°CF OFF 'CF DE tt: 461 W*PRVHND eriite cone TSSETEXvS. PRVHND 
048 462 SeeTEXV G W*SET ~ 


nO MNOOCOVTUIT "oO 
@MvoowvVv77 WYO 
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3; check for correct failure 


FAIL =the Rw ey iO 

At ACCVIO 
CAL W*REG_SHECK 
SSETEXV_S US VECTOR aSXV 


“ACMODE- axy. * W*PRVHND =SXV42_; check _S form 


FAIL ~CHECK SS$_ACCVIO 3; ch heck for correct failure 
PUSHL #SS Ocevio 
ALLS #1,W*REG_CHECK 
TEST_END ; end the test 


PUSHL  W*TMD_ADDR 
PUSHL W*TMN_ADDR 


PUSHL #2 

PUSHL W*MOD_MSG_CODE 

CALLS #$$117G*LYBSSIGNAL 

INSV #1 ,#STS$V_INHIB_MSG,#1,W*MOD _MSG_CODE 
PUSHL W*MOD_MSG~CODE 

CALLS #1,G*SYSSEXIT 


Vv 
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v04=000 REG_SAV 
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. (1) 


-SBTTL REG_SAVE 
: FUNCTIONAL DESCRIPTION: 
; Subroutine to save R2-R11 in the register save location. 
3; CALLING SEQUENCE: 
PUSH 3; save a dummy parameter 

CALLS #1,W*REG_SAVE ; save R2-R11 
INPUT PARAMETERS: 

NONE 


OUTPUT PARAMETERS: 
NONE 


Sete Se Ge Ge Ge Ge Ge Ge Ge 


REG_SAVE: 
is WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
RovCs #4%10,°X14(FP) -W*REG_SAVE_AREA ; Save the registers in the program | 


.SBTTL REG_CHECK 


p++ 

3 FUNCTIONAL DESCRIPTION: 

Subroutine to test RO & R2-R11 for pre er content after a service 
e 


F 
QOO8'CF 14 AD 28 é 


PELL LLLP LEP PPLE PPPS 
~O OO 0000000000009 0000 00900 SI NINININIINNNI NINO 


WS OODNOUES WN" O CONOUSWIN-O0 


SDODSOOSSOSOOSOSSSCSOOODSODDOOSOOSOODODOODODO OOOO OOOODOOOOOOOOOOOOOOCO 
AWANAANE RR RRR RRR RRR RRR RRR RRR RRR RRR RRR RRR RP RRR PRR PRR PPP PRR PEE 
$= 2OOO TN AWN MMMMMMMMMMMMMMMMMMmMmMMmMmMmMMMNMOVOOTVCTOTCTVTOTCTCTUUTUTUTTUTSO 


DAO NON OPIN OPA AAA AAA AAA AAA AAA AAO HUM AMOAAAAAOAAAMOAOAAANADG 


49% ; execution. A snapshot is taken by the REG SAVE routine at the 
495 ; beginning of each step and this routine iS executed after the 
238 : services have been executed. 
498 : CALLING SEQUENCE: 
499 ; PUSHL  &#SS$_XXXXXX 3 push expected RO contents 
200 : CALLS #1,W*REG_CHECK ; execute this routine 
308 : INPUT PARAMETERS: 
32 3 expected RO contents on the stack 
505 ; OUTPUT PARAMETERS: 
208 3 possible error messages printed using SPUTMSG 
508 :-- 
509 
“19 REG_CHECK: 
OFFC 11 . WORD “M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
50 O04 AC 01 218 CMPL 4(AP) ,RO ; is this the right fail code? 
of 13 1 BEQL 10$ ; br if yes. 
5 DD 514 PUSHL RO ; push received data 
04 AC OD 15 PUSHL 4(AP) ; push expected data 
012B°CF OF 19 PUSHAL W*EXP ; push the string variable 
OS2E'CF O03 FB : 108 ALLS #3,W*PRINT_FAIL ; print the error message 
0008'CF 14 AD 8 29 19 ; cMPC3 #4210, °X14(FP) W°REG_SAVE_AREA ; check all but RO 
: br K. 
56 6553 omy od 4 c3 : 1 sve #REG_SAVE_AREA,R3,RE : calculate the register number 
OOAF ‘CF 6 81 ; ADDB #*x2 R6,W*REGNUM M = it in pene Ae hay 
1 CA 4 BICL #3,R1 ; backup to register dry 
3 CA 5 BICL #3,R3 
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y04s800 REG_CHECK ise ys 30:39:10 LET ee eae ee eer Oe MAR: 1 “ 
OOAF'CF DD 051 § PUSHL youn 3; push register number 
6 DD 05 PUSHL anh 3 push received data 
6: DD O05 8 PUSHL (R3) 3; push expected data 
til OF QO5 PUSHAL W*REG ; set string pntr param. 
OS2E'CF 4 FB : . 9 208 ALLS #4,W*PRINT_FAIL ; print the error message 
04 052d é von ET 
: 4 nen -SBTTL PRINT_FAIL 
52E 5 : FUNCTIONAL DESCRIPTION: 
2 ; § 3 Subroutine to report failures using SPUTMSG 
52E 8 : CALLING SEQUENCE: 
O52E 9 ; Mode #1 PUSHL EXPECTED Mode #2 PUSHL REG_NUMBER 
052E 40 ; PUSHL RECEIVED PUSHL EXPECTED 
0S2E 27) ; PUSHAL a cies VAR PUSHL RECEIVED 
052E rt: : CALLS # »>W*PRINT_FAIL PUSHAL STRING_VAR 
82 : 27 ; CALLS #4,W*PRINT_FAIL 
052— 545 : INPUT PARAMETERS: 
b : 278 ; Listed above 
O5¢E 548 : OUTPUT PARAMETERS: 
OS2E 549; an error message is printed using SPUTMSG 
O52E 550; 
a 
052E 228 PRINT_FAIL: 
003C O52E 554 .WO “M<R2,R3,R4,R5> 
0530 555 $FAO_S W*CS1,W*MESSAGEL,W°MSGL ,#TEST_MOD_NAME ,W“SERV_NAME ,W*CURRENT_TC 
0551 556 PUTMSG <#UETP$_TEXT.#1,#MESSAGEL> sprint the message 
06 6C 91 0566 £557 CMPB (AP) ,#4 : is this a register message? 
21 13 0569 558 BEQL 10$ ; br if yes 
0568 559 SFAO_S W*CS2,W*MESSAGEL ,W*MSGL,4(AP) ,8(AP) ,4(AP) ,12(AP) 
25. =i B20A 369 108 BRB 20$ ; goto output message 
Bees 266 can SFAO_S W*CS3,W°MESSAGEL ,W*MSGL ,4(AP),16(AP) ,8(AP) ,4( AP), 16(AP) , 12 (AP) 
0581 564 + ## + — PUTMSG <#UETPS_TEXT,#1,#MESSAGEL> : print the message 
OO4C*CF  OO2A'CF 43 05C6 565 MOVAL W*TEST_MOD_FAIL,W*TMD_ADDR ; set failure message address 
0044'CF 03 00 02 fy pace 286 iusv WERROR, #0,93,W*°MOD_MSG_CODE 3 set severity code 
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SERVICE TESTS 


CHMRTN 


-SBTTL MOD_MSG_PRINT 
MOD _MSG PRINT: 


LARRRARAASAASALELALE SALES ESE EES E SEES EE EEE EEE ECS ETRE TERE EE Pea ae 
® 


PRINTS THE TEST MODULE BST ant SULCESEPUL/PAILED MESSAGES 
(USING THE PUTMSG MACRO). 


ARR AARAAAAAAAALAALASALALALES ESE SELES ESSA EES EERE EERE ERSTE SESE SY 


PUTMSG <W*MOD_MSG_CODE,#2,W°TMN_ADDR, weTMD ADDR> 
RSB D RETURN TO CALLER 


~SBTTL CHMRTN 
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CHANGE MODE ROUTINE. THIS ROUTINE GETS CONTROL WHENEVER 

A CMKRNL CHEXEC — IS ISSUED 

THE MODE MACR nd 
NDIRECT IELD BY M 

THE EFFECT OF RETURNING TO THE END OF THE MODE 


(ARRAS ASALAAALAAAALELALALASLAL ELSES SESE REEL ER ARERR SERS EEE RRR R ERE SY 


ASK 
; : RETURN TO MODE MACRO IN NEW MODE 
RET INSTR WILL BE ISSUED IN EXPANSION OF "MODE FROM, ....° MACRO 
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SATSSFO1 


Symbol table 
VECTOR_SXV 0008D R 02 
WARNING = §6098000 

teweenece were eee $ 

: Psect synopsis ! 

doce aw ean e ena woot 
PSECT name Allocation PSECT No. Attributes 
. . 68 $900 ( -)» QO ¢ -) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
SABSS ( oF Of -) NOPIC USR CON ABS LCL NOSHR EXE’ RD 
RODATA 8 BRI . wise ¢ ( ¢:3 NOPIC USR CON REL LCL NOSHR NOEXE' RD 
RWDATA 1 ( 279.) ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD 
SATS_ACCVIO_1 00000200 ¢ 512.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR NOEXE AD 
SATS_ACCVIO_2 00000 09 ( 512.) 05 ¢ 5.) NOPIC USR CON REL LCL NOSHR NOEXE RD 
SATSSFO1 000005F ( 1525.) 06 ¢ 6.) NOPIC USR CON REL LCL NOSHR EXE RD 

bee nee come meee ea seececeaan at 
; Performance indicators H 

Phase Page faults CPU Time Elapsed Time 
Initialization 30 90:00:00 .06 00:00:00.80 
Command processing 113 ae Sa Bo +80 Be ok? 
Pass 392 00:00:13.04 00:00:26.28 
Symbol table sort 0 00:00:01.56 i ES 
Pass 2 144 00:00:02.92 00:00:05.54 
Symbol table output 17 00:00:00.11 90:00:00.11 
Psect synopsis output 5 88:80:06 0 00:00:00.03 
Cross-reference output 9 00:00: 4 00:00:00.00 
Assembler run totals 70 00:00:18.39 00:00:37.79 


The working set Limit was 1350 pages. 
79290 bytes (155 pages) of virtual memory were used to buffer the intermediate code. 
There were 60 pages of symbol table space allocated to hold non-local and 8 local symbols. 
600 source lines were read in Pass 1, producing 30 object records in Pass 2. 
pages of virtual memory were used to define 53 macros. 


were ree ee eee me eee ee ee wee ena} 


Macro Library name 


_$255$DUA28: SHRLIBIUETP MLB; 4 2 
_8255$DUA28: (SYS.OBJJLIB.MLB; 1 

$255$DUA28: CSYSLIBIJSTARLET.MLB;2 6 
TOTALS (all Libraries) 0 


1328 GETS were required to define 50 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SATSSF01/0BJ=OBJ$:SATSSFO1 MSRC$:SATSSFO1/UPDATE=(ENHS$: SATSSF01) +EXECMLS$/LIB+SHRLIBS:UET?P/LIB 
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041 AH-BT13A-SE ‘ 
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